home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aam.d64 / peek'hires.func < prev    next >
Text File  |  2007-02-28  |  648b  |  26 lines
  1. 9000 FUNC PEEK'HIRES(ADDRESS) CLOSED
  2. 9010  //BY PHYRNE BACON
  3. 9020  //USE FUNCTION TO PEEK ANY
  4. 9030  //HIRES SCREEN BYTE OR ANY BYTE
  5. 9040  //IN RAM
  6. 9050  //USE INIT'PEEK'HIRES BEFORE
  7. 9060  //USING PEEK'HIRES
  8. 9070  POKE 834,ADDRESS MOD 256
  9. 9080  POKE 835,ADDRESS DIV 256
  10. 9090  SYS 838
  11. 9100  RETURN PEEK(836)
  12. 9110 ENDFUNC PEEK'HIRES
  13. 9120 //
  14. 9130 PROC INIT'PEEK'HIRES CLOSED
  15. 9140  FOR I:=838 TO 872 DO
  16. 9150   READ A
  17. 9160   POKE I,A
  18. 9170  ENDFOR I
  19. 9180  DATA 120,165,1,141,69,3
  20. 9190  DATA 169,52,133,1,173,66,3
  21. 9200  DATA 141,93,3,173,67,3
  22. 9210  DATA 141,94,3,173,255,255
  23. 9220  DATA 141,68,3,173,69,3
  24. 9230  DATA 133,1,88,96
  25. 9240 ENDPROC INIT'PEEK'HIRES
  26.